(abbreviate-file-name): Don't convert / to ~/ when the home dir is /.

diff --git a/lisp/files.el b/lisp/files.el
index d484fddb47c7677bbd7a226f10f022b4695f4340..47e2d74a16a75d49f61b188cd94f3ef8d0b582a0 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -545,7 +545,10 @@ Type \\[describe-variable] directory-abbrev-alist RET for more information."
                                                  
     ;; If FILENAME starts with the abbreviated homedir,
     ;; make it start with `~' instead.
-    (if (string-match abbreviated-home-dir filename)
+    (if (and (string-match abbreviated-home-dir filename)
+            ;; If the home dir is just /, don't change it.
+            (not (and (= (match-end 0) 1)
+                      (= (aref filename 0) ?/))))
        (setq filename
              (concat "~"
                      ;; If abbreviated-home-dir ends with a slash,